home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
PROGRAMM
/
CC_C
/
0574.ZIP
/
TOLOWER.ASM
< prev
next >
Wrap
Assembly Source File
|
1986-08-03
|
297b
|
24 lines
include compiler.inc
ttl TOLOWER, 1.03, 08-03-86 clr
;char function - if 'A'-'Z' returns LC equiv, else returns input
dseg
cseg
procdef tolower, <<chr, byte>>
mov al,chr
cmp al,'A'
jb L0053
cmp al,'Z'
ja L0053
xor ax,20h
L0053: pret
pend tolower
finish